home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / misc / amag / am9305b.lha / Amos / MouseClick.asc < prev    next >
Text File  |  1993-02-10  |  407b  |  14 lines
  1.  Rem Multitasking abschalten
  2.   C=Execall(-132)
  3.   Rem rechte Maustaste=Exit
  4.   Repeat
  5.     KLICK=Btst(6,$BFE001)
  6.     If not KLICK :Rem Linke Maustaste gedrückt ?
  7.       Bell
  8.       Repeat
  9.         KLICK=Btst(6,$BFE001) Warten, bis linke Maustaste wieder losgelassen
  10.       Until KLICK
  11.     End if
  12.   Until Btst(2,$DFF016)=0 :Rem Programmabbruch mit rechter Maustaste
  13.   C=Execall(-138) : Rem Multitasking einschalten
  14.